home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD008b.dsk / THE.TABLE.bas < prev    next >
BASIC Source File  |  2003-06-12  |  6KB  |  126 lines
  1. 1  HOME : VTAB 10: HTAB 10: PRINT "THE PERIODIC CHART": INVERSE : VTAB 15: HTAB 14: PRINT "FORMATTING": NORMAL : VTAB 12: HTAB 12: PRINT "BY CARL BOWDEN": GOSUB 20
  2. 2  DIM EL$(103): PRINT  CHR$(4);"OPEN ELEMENT": PRINT  CHR$(4);"READ ELEMENT": FOR I = 1 TO 103: INPUT EL$(I): NEXT : PRINT  CHR$(4);"CLOSE ELEMENT"
  3. 3  PRINT  CHR$(15); CHR$(20); CHR$(16):I =  PEEK(49234): PRINT  CHR$(15); CHR$(23): ONERR  GOTO 6
  4. 4 C$ = "                                        ":T$ = "                                      ":K$ =  CHR$(11):L$ =  CHR$(12):X = 1
  5. 5  VTAB 22: HTAB 14: PRINT "PRESS ANY KEY": VTAB 23: HTAB 4: PRINT "TO EXAMINE ELEMENT OF YOUR CHOICE": FOR I = 1 TO 2000: NEXT : VTAB 22: HTAB 1: PRINT C$: VTAB 23: HTAB 1: PRINT C$
  6. 6  IF  PEEK( -16384) <127  THEN  GOTO 10
  7. 7  POKE  -16368,0: VTAB 22: HTAB 1: PRINT C$: VTAB 22: HTAB 1: INPUT "INPUT THE ATOMIC # OF THE ELEMENT THAT  YOU WISH TO EXAMINE. PRESS RETURN.";A$
  8. 8  VTAB 22: HTAB 1: PRINT C$: VTAB 23: HTAB 1: PRINT C$:I =  VAL(A$):I =  INT(I): IF I <1  OR I >103  THEN  GOTO 10
  9. 9 X = I:I =  FRE(0)
  10. 10  VTAB 1: HTAB 1: PRINT  CHR$(1);1; CHR$(24)
  11. 11  VTAB 22: HTAB 1: PRINT "A"; CHR$(12);"T"; CHR$(11);"#  S"; CHR$(12);"YMBOL  "; CHR$(11);"E"; CHR$(12);"LEMENT  "; CHR$(11);"A"; CHR$(12);"T WT   "; CHR$(11);"C"; CHR$(12);"LASS"
  12. 12  PRINT  CHR$(1);0; CHR$(11): VTAB 24: HTAB 2: PRINT EL$(X)
  13. 13  ON X GOTO 24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98
  14. 14 I = X -75: ON I GOTO 99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126
  15. 15  VTAB 24: HTAB 9: PRINT L$;A$;K$:I =  FRE(0)
  16. 16  PRINT  CHR$(1);1: VTAB V: HTAB H: PRINT "$%";T$;"&*": FOR I = 1 TO 5000: NEXT 
  17. 17  PRINT  CHR$(1);0: VTAB V: HTAB H: PRINT "  ";T$;"  ": VTAB 24: HTAB 1: PRINT C$:X =  INT(X +1): IF X >103  THEN X = 1
  18. 18 J = J +1: IF J/10 = 1  THEN J = 0: VTAB 22: HTAB 1: PRINT C$: GOTO 5
  19. 19  GOTO 6
  20. 20 ADRS = 0: PRINT  CHR$(4);"BLOAD RBOOT": CALL 520:ADRS =  USR(0),"HRCG": IF ADRS <0  THEN ADRS = ADRS +65536
  21. 21 CS = ADRS -768: HIMEM: CS: PRINT  CHR$(4);"BLOAD PRINT.SET,A";CS
  22. 22 CH =  INT(CS/256):CL = CS -CH *256: POKE ADRS +7,CL: POKE ADRS +8,CH: CALL ADRS +3
  23. 23  PRINT  CHR$(4);"BLOAD TABLE,A$4000": RETURN 
  24. 24 A$ = " ":V = 2:H = 3: GOTO 15
  25. 25 A$ = "E":V = 2:H = 37: GOTO 15
  26. 26 A$ = "I":V = 4:H = 3: GOTO 15
  27. 27 A$ = "E":V = 4:H = 5: GOTO 15
  28. 28 A$ = " ":V = 4:H = 27: GOTO 15
  29. 29 A$ = " ":V = 4:H = 29: GOTO 15
  30. 30 A$ = " ":V = 4:H = 31: GOTO 15
  31. 31 A$ = " ":V = 4:H = 33: GOTO 15
  32. 32 A$ = " ":V = 4:H = 35: GOTO 15
  33. 33 A$ = "E":V = 4:H = 37: GOTO 15
  34. 34 A$ = "A":V = 6:H = 3: GOTO 15
  35. 35 A$ = "G":V = 6:H = 5: GOTO 15
  36. 36 A$ = "L":V = 6:H = 27: GOTO 15
  37. 37 A$ = "I":V = 6:H = 29: GOTO 15
  38. 38 A$ = " ":V = 6:H = 31: GOTO 15
  39. 39 A$ = " ":V = 6:H = 33: GOTO 15
  40. 40 A$ = "L":V = 6:H = 35: GOTO 15
  41. 41 A$ = "R":V = 6:H = 37: GOTO 15
  42. 42 A$ = " ":V = 8:H = 3: GOTO 15
  43. 43 A$ = "A":V = 8:H = 5: GOTO 15
  44. 44 A$ = "C":V = 8:H = 7: GOTO 15
  45. 45 A$ = "I":V = 8:H = 9: GOTO 15
  46. 46 A$ = " ":V = 8:H = 11: GOTO 15
  47. 47 A$ = "R":V = 8:H = 13: GOTO 15
  48. 48 A$ = "N":V = 8:H = 15: GOTO 15
  49. 49 A$ = "E":V = 8:H = 17: GOTO 15
  50. 50 A$ = "O":V = 8:H = 19: GOTO 15
  51. 51 A$ = "I":V = 8:H = 21: GOTO 15
  52. 52 A$ = "U":V = 8:H = 23: GOTO 15
  53. 53 A$ = "N":V = 8:H = 25: GOTO 15
  54. 54 A$ = "A":V = 8:H = 27: GOTO 15
  55. 55 A$ = "E":V = 8:H = 29: GOTO 15
  56. 56 A$ = "S":V = 8:H = 31: GOTO 15
  57. 57 A$ = "E":V = 8:H = 33: GOTO 15
  58. 58 A$ = "R":V = 8:H = 35: GOTO 15
  59. 59 A$ = "R":V = 8:H = 37: GOTO 15
  60. 60 A$ = "B":V = 10:H = 3: GOTO 15
  61. 61 A$ = "R":V = 10:H = 5: GOTO 15
  62. 62 A$ = " ":V = 10:H = 7: GOTO 15
  63. 63 A$ = "R":V = 10:H = 9: GOTO 15
  64. 64 A$ = "B":V = 10:H = 11: GOTO 15
  65. 65 A$ = "O":V = 10:H = 13: GOTO 15
  66. 66 A$ = "C":V = 10:H = 15: GOTO 15
  67. 67 A$ = "U":V = 10:H = 17: GOTO 15
  68. 68 A$ = "H":V = 10:H = 19: GOTO 15
  69. 69 A$ = "D":V = 10:H = 21: GOTO 15
  70. 70 A$ = "G":V = 10:H = 23: GOTO 15
  71. 71 A$ = "D":V = 10:H = 25: GOTO 15
  72. 72 A$ = "N":V = 10:H = 27: GOTO 15
  73. 73 A$ = "N":V = 10:H = 29: GOTO 15
  74. 74 A$ = "B":V = 10:H = 31: GOTO 15
  75. 75 A$ = "E":V = 10:H = 33: GOTO 15
  76. 76 A$ = " ":V = 10:H = 35: GOTO 15
  77. 77 A$ = "E":V = 10:H = 37: GOTO 15
  78. 78 A$ = "S":V = 12:H = 3: GOTO 15
  79. 79 A$ = "A":V = 12:H = 5: GOTO 15
  80. 80 A$ = "A":V = 12:H = 7: GOTO 15
  81. 81 A$ = "E":V = 17:H = 5: GOTO 15
  82. 82 A$ = "R":V = 17:H = 7: GOTO 15
  83. 83 A$ = "D":V = 17:H = 9: GOTO 15
  84. 84 A$ = "M":V = 17:H = 11: GOTO 15
  85. 85 A$ = "M":V = 17:H = 13: GOTO 15
  86. 86 A$ = "U":V = 17:H = 15: GOTO 15
  87. 87 A$ = "D":V = 17:H = 17: GOTO 15
  88. 88 A$ = "B":V = 17:H = 19: GOTO 15
  89. 89 A$ = "Y":V = 17:H = 21: GOTO 15
  90. 90 A$ = "O":V = 17:H = 23: GOTO 15
  91. 91 A$ = "R":V = 17:H = 25: GOTO 15
  92. 92 A$ = "M":V = 17:H = 27: GOTO 15
  93. 93 A$ = "B":V = 17:H = 29: GOTO 15
  94. 94 A$ = "U":V = 17:H = 31: GOTO 15
  95. 95 A$ = "F":V = 12:H = 9: GOTO 15
  96. 96 A$ = "A":V = 12:H = 11: GOTO 15
  97. 97 A$ = " ":V = 12:H = 13: GOTO 15
  98. 98 A$ = "E":V = 12:H = 15: GOTO 15
  99. 99 A$ = "S":V = 12:H = 17: GOTO 15
  100. 100 A$ = "R":V = 12:H = 19: GOTO 15
  101. 101 A$ = "T":V = 12:H = 21: GOTO 15
  102. 102 A$ = "U":V = 12:H = 23: GOTO 15
  103. 103 A$ = "G":V = 12:H = 25: GOTO 15
  104. 104 A$ = "L":V = 12:H = 27: GOTO 15
  105. 105 A$ = "B":V = 12:H = 29: GOTO 15
  106. 106 A$ = "I":V = 12:H = 31: GOTO 15
  107. 107 A$ = "O":V = 12:H = 33: GOTO 15
  108. 108 A$ = "T":V = 12:H = 35: GOTO 15
  109. 109 A$ = "N":V = 12:H = 37: GOTO 15
  110. 110 A$ = "R":V = 14:H = 3: GOTO 15
  111. 111 A$ = "A":V = 14:H = 5: GOTO 15
  112. 112 A$ = "C":V = 14:H = 7: GOTO 15
  113. 113 A$ = "H":V = 19:H = 5: GOTO 15
  114. 114 A$ = "A":V = 19:H = 7: GOTO 15
  115. 115 A$ = " ":V = 19:H = 9: GOTO 15
  116. 116 A$ = "P":V = 19:H = 11: GOTO 15
  117. 117 A$ = "U":V = 19:H = 13: GOTO 15
  118. 118 A$ = "M":V = 19:H = 15: GOTO 15
  119. 119 A$ = "M":V = 19:H = 17: GOTO 15
  120. 120 A$ = "K":V = 19:H = 19: GOTO 15
  121. 121 A$ = "F":V = 19:H = 21: GOTO 15
  122. 122 A$ = "S":V = 19:H = 23: GOTO 15
  123. 123 A$ = "M":V = 19:H = 25: GOTO 15
  124. 124 A$ = "D":V = 19:H = 27: GOTO 15
  125. 125 A$ = "O":V = 19:H = 29: GOTO 15
  126. 126 A$ = "R":V = 19:H = 31: GOTO 15